home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Programming / MUI / MCC_Xpk / Source / Xpk-Demo.c
Encoding:
C/C++ Source or Header  |  1998-02-26  |  1.6 KB  |  70 lines
  1. #include <clib/alib_protos.h>
  2. #include <clib/dos_protos.h>
  3. #include <clib/exec_protos.h>
  4. #include <clib/muimaster_protos.h>
  5. #include <clib/intuition_protos.h>
  6. #include <mui/xpk_mcc.h>
  7. #include <stdlib.h>
  8.  
  9. struct Library *MUIMasterBase;
  10.  
  11. APTR app,window,xpk;
  12.  
  13. void InitLibs()
  14. {
  15. if(!(MUIMasterBase=OpenLibrary("muimaster.library",17))) exit(20);
  16. }
  17.  
  18. void Ende()
  19. {
  20. if(app) MUI_DisposeObject(app);
  21. CloseLibrary(MUIMasterBase);
  22. }
  23.  
  24. void InitGUI()
  25. {
  26. app=ApplicationObject,
  27.     MUIA_Application_Title,"Xpk-Demo",
  28.     MUIA_Application_Author,"Achim Stegemann",
  29.     MUIA_Application_Base,"XPKDEMO",
  30.     MUIA_Application_Copyright,"© 1997 by Achim Stegemann",
  31.     MUIA_Application_Description,"Show features of Xpk.mcc.",
  32.     MUIA_Application_Version,"$VER:Xpk-Demo V17.0 (05.11.1997)\n",
  33.     MUIA_Application_UseRexx,0,
  34.     SubWindow,window=WindowObject,
  35.         MUIA_Window_Title,"Xpk-Demo",
  36.         MUIA_Window_ID,'xpkd',
  37.         WindowContents,VGroup,
  38.             Child,xpk=XpkObject,
  39.             End,
  40.         End,
  41.     End,
  42. End;
  43. if(!app) exit(20);
  44. DoMethod(window,MUIM_Notify,MUIA_Window_CloseRequest,1,MUIV_Notify_Application,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
  45. }
  46.  
  47. void main()
  48. {
  49. ULONG signals;
  50. long id;
  51. char *packer,*passwd;
  52. ULONG mode;
  53.  
  54. atexit(Ende);
  55. InitLibs();
  56. InitGUI();
  57. SetAttrs(window,MUIA_Window_Open,1,TAG_END);
  58. while((id=DoMethod(app,MUIM_Application_NewInput,&signals)!=MUIV_Application_ReturnID_Quit))
  59.     {
  60.     Wait(signals);
  61.     }
  62. GetAttr(MUIA_Xpk_Method,xpk,&packer);
  63. GetAttr(MUIA_Xpk_Mode,xpk,&mode);
  64. GetAttr(MUIA_Xpk_Password,xpk,&passwd);
  65. Printf("You're choices:\n");
  66. Printf("Packer:   %s\n",packer);
  67. Printf("Mode:     %lu\n",mode);
  68. Printf("Password: %s\n",passwd);
  69. }
  70.